home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / SUPER.HIMEM.BIT.NIBBLER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  39 lines
  1. 10  HOME : VTAB 5: HTAB 8: PRINT "SUPER HIMEM  BIT-NIBBLER"
  2. 20  PRINT : HTAB 19: PRINT "BY": PRINT : HTAB 13: PRINT "ROBERT GEISLER"
  3. 30  PRINT : HTAB 8: PRINT "20333 OLD TOWN RD, SR #2": PRINT : HTAB 9: PRINT "TEHACHAPI, CA.   93561"
  4. 40  FOR I = 1 TO 4000: NEXT 
  5. 50  HOME 
  6. 60  SPEED= 50
  7. 70  HOME : VTAB (4): HTAB (14): PRINT "HIMEM FINDER": PRINT : PRINT 
  8. 80  SPEED= 255
  9. 90  PRINT : PRINT : HTAB (7)
  10. 100  PRINT "THIS PROGRAM IS NOT WORTH"
  11. 110  PRINT : HTAB (20): PRINT "A"
  12. 120  PRINT 
  13. 130  SPEED= 140
  14. 140  FOR J = 0 TO 4: INVERSE : HTAB (12): VTAB (13): PRINT "G O T 0   J A I L": VTAB (13): HTAB (12): PRINT "C O P Y R I G H T": FOR X = 1 TO 100: NEXT X: NEXT J
  15. 150  SPEED= 255
  16. 160  NORMAL 
  17. 170  FOR I = 1 TO 1000: NEXT 
  18. 180  VTAB (9): SPEED= 25: HTAB (7): PRINT "                         ": PRINT : HTAB (20): PRINT " ": SPEED= 255
  19. 190  VTAB (15)
  20. 200  PRINT 
  21. 210  HTAB (19): PRINT "BY"
  22. 220  PRINT 
  23. 230  HTAB (18): PRINT "ANON"
  24. 240  PRINT 
  25. 250  HTAB (15): PRINT "MLXVI A.D."
  26. 260  FOR Y = 1 TO 1000: NEXT Y
  27. 270  HOME 
  28. 280  SPEED= 50
  29. 290  VTAB (8): HTAB (13): PRINT "NOW FOR THE DATA!"
  30. 300  PRINT "<CTRL-G><CTRL-G><CTRL-G>"
  31. 310 : PRINT : PRINT : PRINT : HTAB (5): PRINT "HIMEM IS PRESENTLY SET AT: "; PEEK(116) *256 + PEEK(115)
  32. 320  PRINT "<CTRL-G>  <CTRL-G><CTRL-G><CTRL-G><CTRL-G>     <CTRL-G><CTRL-G>"
  33. 330  PRINT : PRINT : PRINT "B": PRINT " I": PRINT "  G": PRINT : PRINT : PRINT : PRINT "       D": PRINT "        E": PRINT "         A": PRINT "          L !!!!!!!!!!!!!!!!!!!!": SPEED= 255:: PRINT "<CTRL-G>"
  34. 340  INPUT "DO YOU WISH TO RUN THE SUPER HIMEM BIT  COPY PROGRAM..GUARANTEED TO COPY            ANYTHING (ANSWER Y/N): ";A$
  35. 350  IF  LEFT$(A$,1) < >"Y"  THEN 380
  36. 360  SPEED= 150: HOME 
  37. 370  FOR Q = 1 TO 40: PRINT "  ANYTHING  ";: NEXT Q
  38. 380  SPEED= 255
  39. 390  END